home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / batchut / bcsrce2.zip / CATCHIT.BC < prev    next >
Text File  |  1990-10-21  |  1KB  |  55 lines
  1. rem Hotkey to activity this TSR is Alt-B.
  2. if %1 = disable goto disable_TSR
  3. if %1 = enable goto enable_TSR
  4. if %1 = unload goto unload_TSR
  5. if %1 = popup goto popup_TSR
  6. TSR_installed?
  7. if errorlevel 1 goto installed
  8. echo Installing screen capture program.
  9. echo All screens toggled with Alt-B are redirected to CAUGHT.SCN.
  10. echo.
  11. echo SYNTAX--: CATCHIT [UNLOAD]/[ENABLE]/[DISABLE]/[POPUP]
  12. TSR 48 8
  13. save_screen
  14. let %!w = 1
  15. do_while not %!w == 26
  16.     locate %!w 1
  17.     let %!l = 0
  18.     read_screen %!l
  19.     echo %!l>>caught.scn
  20.     add %!w 1
  21. end_while
  22. restore_screen
  23. beep
  24. return
  25. :installed
  26. echo The screen capture TSR program has already been installed.
  27. exit
  28. :disable_TSR
  29. GOSUB CHECK_TSR
  30. TSR_disable
  31. echo The screen capture TSR has been DISABLED.
  32. exit
  33. :enable_TSR
  34. GOSUB CHECK_TSR
  35. TSR_enable
  36. echo The screen capture TSR has been ENABLED.
  37. exit
  38. :unload_TSR
  39. GOSUB CHECK_TSR
  40. TSR_unload
  41. echo The screen capture TSR has been UNLOADED.
  42. exit
  43. :popup_TSR
  44. GOSUB CHECK_TSR
  45. TSR_popup
  46. exit
  47. :CHECK_TSR
  48. TSR_installed?
  49. if not errorlevel 1 goto N_A
  50. RETURN
  51. :N_A
  52. echo The screen capture TSR hasn't been installed yet.
  53. echo CATCHIT, by itself, installs the TSR.
  54. exit
  55.